home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Zoom 2
/
Zoom - Release 2 (1996)(Active Software)[!].iso
/
programming
/
basic
/
ace
/
shellutils
/
base.b
next >
Wrap
Text File
|
1994-01-16
|
312b
|
21 lines
deflng x
SUB usage
print "usage: base <decimal number>"
stop
END SUB
if argcount<>1 then
usage
else
if arg$(1)="?" then
usage
else
x=val(arg$(1))
print " Decimal:";x
print "Hexadecimal: ";hex$(x)
print " Octal: ";oct$(x)
print " Binary: ";bin$(x)
end if
end if